1 GOTO10: OPEN1,8,15
2 INPUT#1,A,B$,C,D
3 PRINTA,B$,C,D
4 STOP
10 POKE53280,0:POKE53281,0:PRINT"[147]"
20 O1=0:O2=0
100 GOSUB 50000:GOTO1000
900 REM*EINFACHES GET
910 GETY$:IFY$=""THEN910
920 Y=VAL(Y$):IFY>M1THEN910
930 M1=0:RETURN
1000 REM*KERNDATEN
1010 PRINTLEFT$(X2$,2);T1$
1020 PRINT"1 = SPULE (HF-DROSSEL)"
1030 PRINT"2 = GEGENTAKTWANDLER"
1040 PRINT"3 = EINTAKTWANDLER"
1070 PRINT"4 = KERNTABELLE"
1080 PRINT"5 = DRAHTTABELLE"
1090 PRINT"6 = DRUCKEN"
1100 PRINTT2$
1110 M1=6:GOSUB900
1120 ONYGOSUB2000,5000,7000,3100,3200,20000
1130 GOTO1000
2000 REM*SPULE BERECHNEN
2010 T1=1:L1=0:D1=0:B1=0:K1=0:A1=0:F1=0:X1=0:Y1=0:M2=0:M3=0:M4=0
2020 GOSUB20140
2100 PRINT"[147]SPULENDATEN"
2110 PRINT"L IN HENRY   =";:INPUTL1
2120 PRINT"D KERN       =";:INPUTD1
2130 PRINT"B KERN       =";:INPUTB1
2140 PRINT"KZ 1-3       =";:INPUTK1
2150 PRINT"AL IN NHENRY =";:INPUTA1
2160 PRINT"F IN HERZ    =";:INPUTF1
2200 IFL1=0ORD1=0ORB1=0ORK1=0ORA1=0THENPRINTX3$;T6$;""T4$:GOSUB3800:GOTO1000
2210 IFK1<1ORK1>3THENPRINTX3$;T6$;""T4$:GOSUB3800:GOTO2000
2220 IFK1<>1THENK1=2
2300 REM*KERNTABELLE LESEN
2310 FORJ1=1TO15
2320 IFQ(J1,1)=D1ANDQ(J1,2)=B1ANDQ(J1,3)=K1THENX1=Q(J1,4):Y1=Q(J1,5):GOTO2340
2330 NEXT
2340 IFX1=0ORY1=0THENPRINTX3$;T3$;""T4$:PRINTT5$" J/N":GOTO2360
2350 GOTO2380
2360 GOSUB900:IFY$="J"THENGOSUB3100
2370 GOTO2000
2380 N1=SQR(L1/(1E-9*A1))
2400 REM*BERECHNUNG
2410 M2=0:M4=0
2420 N5=N1:N=N5:GOSUB7000:IFM4=1THENGOTO2000
2430 E1=D3:E2=D4:NA=N5:MA=M2:RA=R:RA$=R$:LA=L:LA$=L$:FA=FE
2440 IFF1<>0THENZ3=2*(null)*F1*L1:R=Z3:GOSUB3700:R2=R:R2$=R$
2460 QQ=Z3/R9:QQ=INT(QQ*10)/10
2600 PRINT"[147]SPULENDATEN"
2610 PRINT"L IN HENRY   =";L1
2620 PRINT"D KERN       =";D1
2630 PRINT"B KERN       =";B1
2640 PRINT"KZ 1-3       =";K1
2650 PRINT"AL IN NHENRY =";A1
2660 PRINT"F IN HERZ    =";F1
2670 PRINT"N            =";NA
2680 IFMA=0THENPRINTTAB(24)"[145]WINDUNGEN"
2690 IFMA=1THENPRINTTAB(24)"[145]*2 WIND.PAR."
2700 PRINT"D NENND.    =";E1;TAB(24)"CUL"
2710 PRINT"D AUSSEND.  =";E2;TAB(24)"CUL"
2720 PRINT"RCU          =";RA;TAB(24)RA$
2730 PRINT"XL INDUKTANZ =";R2;TAB(24)R2$
2740 PRINT"Q SPULENGUETE=";QQ
2750 PRINT"FCU          =";FA;TAB(24)"KUPFERFUELLFAK."
2800 GOSUB3010:IFM4=1THEN1000
2810 GOSUB7080:GOTO2430
3000 REM*DRAHTSTAERKE AENDERN
3010 PRINTLEFT$(X3$,22);T7$;" DN J/N":M3=1:GOSUB3800
3020 IFY$<>"J"THENM4=1:RETURN
3030 PRINT"DN+1=F1  DN-1=F3":GOSUB900
3040 IFY$=CHR$(133)ANDJ2=31ANDMA=1THENRETURN
3050 IFY$=CHR$(133)THENJ2=J2+1:IFJ2>31THENJ2=26:MA=1:GOTO3060
3055 GOTO3070
3060 D3=Q1(J2,1):D4=Q1(J2,2):Z1=Q1(J2,3):RETURN
3070 IFY$=CHR$(134)THENJ2=J2-1:IFJ2<26ANDM2=1THENJ2=31:MA=0
3080 D3=Q1(J2,1):D4=Q1(J2,2):Z1=Q1(J2,3):RETURN
3090 RETURN
3100 REM*KERNTABELLE LESEN
3110 PRINT"[147]KERNTABELLE"
3120 PRINT"D KERN","B KERN","KZ","LN"
3130 FORJ=1TO15
3140 PRINTQ(J,1),Q(J,2),Q(J,3),Q(J,6)
3150 NEXT:GOTO3800
3200 REM*DRAHTTABELLE LESEN
3205 PRINT"[147]DRAHTTABELLE"
3210 PRINT"DN","DA","Z1"
3220 FORJ=1TO16
3230 PRINTQ1(J,1),Q1(J,2),Q1(J,3)
3240 NEXT:PRINT"WEITER MIT RETURN":GOSUB3800
3250 PRINT"[147]DRAHTTABELLE"
3260 PRINT"DN","DA","Z1"
3270 FORJ=17TO31
3280 PRINTQ1(J,1),Q1(J,2),Q1(J,3)
3290 NEXT:GOTO3800
3400 REM*FORMATIERUNG VON C
3410 IFC<1E-9THENC=C*1E12:C$="PF":GOTO3440
3420 IFC<1E-6THENC=C*1E9:C$="NF":GOTO3440
3430 IFC<1E-3THENC=C*1E6:C$="UF"
3440 C=INT(C*10)/10:RETURN
3500 REM*RUNDUNG VON N
3510 NY=N5-INT(N5)
3520 IFNY>.7THENN5=INT(N5)+1:RETURN
3530 IFNY>.2THENN5=INT(N5)+.5:RETURN
3540 RETURN
3600 REM*FORMATIERUNG VON L
3610 IFL<1E-6THENL=L*1E9:L$="NH":GOTO3650
3620 IFL<1E-3THENL=L*1E6:L$="UH":GOTO3650
3630 IFL<1THENL=L*1E3:L$="MH":GOTO3650
3640 L$="H"
3650 L=INT(L+.5):RETURN
3700 REM*FORMATIERUNG VON R
3710 IFR>1E6THENR=R/1E6:R$="MOHM":GOTO3750
3720 IFR>1E3THENR=R/1E3:R$="KOHM":GOTO3750
3730 IFR>1THENR$="OHM":GOTO3750
3740 IFR>1E-3THENR=R*1E3:R$="MILLI OHM"
3750 R=INT(R*1000)/1000:RETURN
3800 GOSUB900
3810 IFASC(Y$)=13THEN3840
3830 RETURN
3840 IFM3=1THENPRINTLEFT$(X3$,22);X1$:PRINTLEFT$(X3$,23);X1$:M3=0
3850 RETURN
5000 REM*GEGENTAKTWANDLER BERECHNEN
5010 PRINT"[147]NEUEINGABE ? J/N[146]":GOSUB6900:IFY$<>"J"THEN5090
5020 T1=1:T2=.2:U1=0:U2=0:I1=0:U3=0:U4=0:B3=0:D1=0:B1=0:K1=0:A1=0:F1=0:X1=0:Y1=0
5030 S4=0:M2=0:M3=0:M4=0:M5=0:J3=0:J3=0
5090 GOSUB20100
5100 PRINT"[147]GEGENTAKTWANDLER-DATEN"
5110 PRINT"U PRIM IN VOLT =";U1;:PRINTTAB(24):INPUTU1
5120 PRINT"U SEK  IN VOLT =";U2;:PRINTTAB(24):INPUTU2
5130 PRINT"I SEK  IN AMP. =";I2;:PRINTTAB(24):INPUTI2
5140 PRINT"U BE   IN VOLT =";U3;:PRINTTAB(24):INPUTU3
5150 PRINT"U DIODE   VOLT =";U4;:PRINTTAB(24):INPUTU4
5160 PRINT"B VERST.-FAKT. =";B3;:PRINTTAB(24):INPUTB3
5170 PRINT"D KERN-DURCHM. =";D1;:PRINTTAB(24):INPUTD1
5180 PRINT"B KERN-BREITE  =";B1;:PRINTTAB(24):INPUTB1
5190 PRINT"KZ 1-3 KAMMER  =";K1;:PRINTTAB(24):INPUTK1
5200 PRINT"AL IN NHENRY   =";A1;:PRINTTAB(24):INPUTA1
5210 PRINT"F  IN HERZ     =";F1;:PRINTTAB(24):INPUTF1
5220 PRINT"B MAX IN TESLA =";T2;:PRINTTAB(24):INPUTT2
5230 PRINT"R VORWIDERST.  =";S4;:PRINTTAB(24):INPUTS4
5280 IFU1=0ORU2=0ORI2=0ORU3=0ORU4=0ORB3=0ORD1=0ORB1=0ORK1=0ORA1=0ORF1=0THEN5310
5290 IFS4=0THEN5310
5300 GOTO5320
5310 PRINTX3$;T6$;""T4$:GOSUB6900:GOTO1000
5320 IFK1<1ORK1>3THENPRINTX3$;T6$;""T4$:GOSUB6900:GOTO5000
5330 IFK1<>1THENK1=2
5335 REM*KERNTABELLE LESEN
5340 FORJ1=1TO15
5350 IFQ(J1,1)=D1ANDQ(J1,2)=B1ANDQ(J1,3)=K1THENX1=Q(J1,4):Y1=Q(J1,5):GOTO5370
5360 NEXT
5370 IFX1=0ORY1=0THENPRINTX3$;T3$;""T4$:PRINTT5$" J/N":GOTO5390
5380 GOTO5410
5390 GOSUB900:IFY$="J"THENGOSUB3100
5400 GOTO5000
5410 REM*BERECHNUNG PRIMAERWICKLUNG
5420 AE=Q(J1,7)
5430 N1=U1*1E6/(4*F1*T2*AE)
5440 L1=A1*1E-9*N1^2:L=L1:GOSUB3600:LA=L:LA$=L$
5450 M2=0:M4=0
5460 N5=N1:N=N5*4.2:GOSUB7000:IFM4=1THENGOTO5000
5470 E1=D3:E2=D4:NA=N5:MA=M2:RA=R:RA$=R$:LA=L:LA$=L$:FA=FE:S1=R9
5480 REM*BERECHNUNG STEUERWICKLUNG
5500 N3=N1*2*U3/U1
5510 L3=A1*1E-9*N3^2:L=L3:GOSUB3600:LC=L:LC$=L$
5520 M2=0:M4=0
5530 N5=N3:N=N1*B3:GOSUB7000:IFM4=1THENGOTO5000
5540 E5=D3:E6=D4:NC=N5:MC=M2:RC=R:RC$=R$:LC=L:LC$=L$:FC=FE:S3=R9
5550 REM*BERECHNUNG SEKUNDAERWICKLUNG
5560 R4=S1*U2/U1
5570 R2=R4
5580 FORJ3=1TO3
5590 N2=N1*(U2+U4+((R4+R2)*I2))/U1
5600 M2=0:M4=0
5610 N5=N2:N=N2*4.2:GOSUB7000:IFM4=1THENGOTO5000
5620 E3=D3:E4=D4:NB=N5:MB=M2:RB=R:RB$=R$:FB=FE:R2=R9
5630 L2=A1*1E-9*N2^2:L=L2:GOSUB3600:LB=L:LB$=L$
5640 NEXT
5650 REM*NEBENRECHNUNG
5660 I3=I2*N2/N1/B3:I3=INT((I3+.0005)*1000)/1000:S5=U3/I3:S6=((U1-.6)/.6)*S4
5680 S5=U3/I3:R=S5:GOSUB3700:S5=R
5690 S6=((U1-.6)/.6)*S4:R=S6:GOSUB3700:S6=R
5700 S5=U3/I3:R=S5:GOSUB3700:S5=R:S5$=R$
5710 P1=I1*U1:P1=INT((P1+.0005)*1000)/1000
5720 PV=P1-U2*I2:PV=INT((PV+.0005)*1000)/1000
5730 S6=((U1-.6)/.6)*S4:R=S6:GOSUB3700:S6=R:S6$=R$
5740 C1=10/(U2*I2*F1):
5750 S7=U5/I2:R=S7:GOSUB3700:R7=R:R7$=R$
5760 I1=I2*N2/N1:I1=INT((I1+.0005)*1000)/1000
5770 P1=I1*U1:P1=INT((P1+.0005)*1000)/1000
5780 PV=P1-U2*I2:PV=INT((PV+.0005)*1000)/1000
5790 U5=U1*N2/N1:U5=INT((U5+.05)*10)/10
5800 C1=10/(U2*I2*F1):C=C1:GOSUB3400:C1=C:C1$=C$
5810 S7=U5/I2:R=S7:GOSUB3700:R7=R:R7$=R$
5820 NL=E1^2*(null)/4*5.3*U1:NL=INT(NL*1000)/1000:FD=(FA+FB+FC)*2
6000 PRINT"[147]GEGENTAKT-WANDLER-DATEN"
6010 PRINT"NENNLEISTUNG  =";NL;"(5.3A/QMM)
6020 [153]"PRIMAERWICKLUNG";[163]24)"2 MAL"
6030 [153]"N             =";NA
6040 [139]MA[178]0[167][153][163]24)"ONWINDUNGEN"
6050 [139]MA[178]1[167][153][163]24)"ON*2 WIND.PAR."
6060 [153]"D NENN.       =";E1;[163]24)"CUL"
6070 [153]"D AUSS.       =";E2;[163]24)"CUL"
6080 [153]"SEKUNDAERWICKLUNG";[163]24)"2 MAL"
6090 [153]"N             =";NB
6100 [139]MB[178]0[167][153][163]24)"ONWINDUNGEN"
6110 [139]MB[178]1[167][153][163]24)"ON*2 WIND.PAR."
6120 [153]"D NENN.       =";E3;[163]24)"CUL"
6130 [153]"D AUSS.       =";E4;[163]24)"CUL"
6140 [153]"STEUERWICKLUNG";[163]24)"2 MAL"
6150 [153]"N             =";NC
6160 [139]MC[178]0[167][153][163]24)"ONWINDUNGEN"
6170 [139]MC[178]1[167][153][163]24)"ON*2 WIND.PAR."
6180 [153]"D NENN.       =";E5;[163]24)"CUL"
6190 [153]"D AUSS.       =";E6;[163]24)"CUL"
6200 [153]"WEITER MIT RETURN":[141]3800
6210 [153]"LOADGEGENTAKT-WANDLER-DATEN"
6220 [153]"IC TRANSISTOR =";I1;[163]24)"AMP"
6230 [153]"IB TRANSISTOR =";I3;[163]24)"AMP"
6240 [153]"RB            =";S5;[163]24)S5$
6250 [153]"R VORWIDERST. =";S6;[163]24)S6$
6260 [153]"U SEK. MAX    =";U5;[163]24)"VOLT"
6270 [153]"C LADEELKO    =";C1;[163]24)C1$
6280 [153]"P1 EIN LEIST. =";P1;[163]24)"WATT"
6290 [153]"PV VERL.      =";PV;[163]24)"WATT"
6300 [153]"P NENN        =";NL;[163]24)"WATT"
6310 [153]"FCU           =";FD;[163]24)"KUPFERFUELLF."
6320 [153]"WEITER MIT RETURN":[141]3800
6500 [153]"LOADGEGENTAKT-WANDLER-DATEN"
6510 [153]"N       PRIM. =";NA
6520 [139]MA[178]0[167][153][163]24)"ONWINDUNGEN"
6530 [139]MA[178]1[167][153][163]24)"ON*2 WIND.PAR."
6540 [153]"L       PRIM. =";LA;[163]24)LA$
6550 [153]"RCU     PRIM. =";RA;[163]24)RA$
6560 [153]"D NENN. PRIM. =";E1;[163]24)"CUL"
6570 [153]"D AUSS. PRIM. =";E2;[163]24)"CUL"
6580 [153]"FCU           =";FA;[163]24)"KUPFERFUELLF."
6610 [153]"N       SEK.  =";NB;[163]24)"WINDUNGEN"
6620 [139]MB[178]0[167][153][163]24)"ONWINDUNGEN"
6630 [139]MB[178]1[167][153][163]24)"ON*2 WIND.PAR."
6640 [153]"L       SEK.  =";LB;[163]24)LB$
6650 [153]"RCU     SEK.  =";RB;[163]24)RB$
6660 [153]"D NENN. SEK.  =";E3;[163]24)"CUL"
6670 [153]"D AUSS. SEK.  =";E4;[163]24)"CUL"
6680 [153]"FCU           =";FB;[163]24)"KUPFERFUELLF."
6710 [153]"N       STEU. =";NC;[163]24)"WINDUNGEN"
6720 [139]MC[178]0[167][153][163]24)"ONWINDUNGEN"
6730 [139]MC[178]1[167][153][163]24)"ON*2 WIND.PAR."
6740 [153]"L       STEU. =";LC;[163]24)LC$
6750 [153]"RCU     STEU. =";RC;[163]24)RC$
6760 [153]"D NENN. STEU. =";E5;[163]24)"CUL"
6770 [153]"D AUSS. STEU. =";E6;[163]24)"CUL"
6780 [153]"FCU           =";FC;[163]24)"KUPFERFUELLF."
6790 [153]"NOCH EINMAL AUFLISTEN ? J/N":[141]900:[139]Y$[178]"J"[167]6000
6800 [142]
6900 [141]900
6910 [139][198](Y$)[178]13[167]6940
6930 [142]
6940 [139]M3[178]1[167][153][200](X3$,22);X1$:[153][200](X3$,23);X1$:M3[178]0
6950 [142]
7000 [143]
7010 D2[178]Y1[173]([189]([188](N)[173]X1))
7020 [139]D2[177][178]1.068[167]D2[178][186]((D2[174]2)[173]2):M2[178]1
7030 [139]D2[177][178]1.068[167]D2[178]1.068:J2[178]31
7040 [129]J2[178]1[164]31
7050 [139]D2[178][179]Q1(J2,2)[167]D3[178]Q1(J2,1):D4[178]Q1(J2,2):Z1[178]Q1(J2,3):[137]7070
7060 [130]
7070 N5[178][181]((N5[170].05)[172]10)[173]10:[141]3500
7080 N6[178][189](([188](Y1[173]D4))[172]X1)
7090 FD[178]N5[173]N6:FE[178][181](FD[172]50[170].5)[173]100:[139]M2[178]1[167]FE[178]FE[172]2
7100 Z2[178]Q(J1,6):R[178](Z2[172]N5[172]FD[170]100)[173]1000[172]Z1:[139]M2[178]1[167]R[178]R[173]2
7110 R9[178]R:[141]3700
7120 [142]
20000 [143]*DRUCKEN
20010 [153]"LOADDRUCKEN":[153]X3$;T8$
20020 [141]900:[139]Y$[179][177]"J"[167]20020
20050 [137]20200
20100 [143]*GEGENTAKTWANDLER
20110 O1[178]1:[142]
20130 [143]*SPULE (HF-DROSSEL)
20140 O2[178]1:[142]
20200 [139]O1[178]1[167]20300
20210 [139]O2[178]1[167]21200
20290 [142]
20300 [159]1,4
20310 [152]1,[199](14)[166]4)"GEGENTAKTWANDLER-DATEN * EINGABE":[152]1
20320 [152]1,[199](15)[166]8)"U PRIM. IN VOLT =";U1
20330 [152]1,[199](15)[166]8)"U SEK.  IN VOLT =";U2
20340 [152]1,[199](15)[166]8)"I SEK.  IN AMP. =";I2
20350 [152]1,[199](15)[166]8)"U BE    IN VOLT =";U3
20360 [152]1,[199](15)[166]8)"U DIODE IN VOLT =";U4
20370 [152]1,[199](15)[166]8)"B VERST.-FAKT.  =";B3
20380 [152]1,[199](15)[166]8)"D KERN-DURCHM.  =";D1
20390 [152]1,[199](15)[166]8)"B KERN-BREITE   =";B1
20400 [152]1,[199](15)[166]8)"KZ 1-3 KAMMER   =";K1
20410 [152]1,[199](15)[166]8)"AL IN NHENRY    =";A1
20420 [152]1,[199](15)[166]8)"F  IN HERZ      =";F1
20430 [152]1,[199](15)[166]8)"B MAX IN TESLA  =";T2
20440 [152]1,[199](15)[166]8)"R VORWIDERST.   =";S4
20450 [152]1
20510 [152]1,[199](14)[166]4)"GEGENTAKTWANDLER-DATEN * AUSGABE"
20520 [152]1
20530 [152]1,[199](15)[166]8)"PRIMAERWICKLUNG";[199](16)[199](51)[199](50)"2 MAL"
20540 [152]1,[199](15)[166]8)"N             =";NA;
20550 [139]MA[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
20560 [139]MA[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
20570 [152]1,[199](15)[166]8)"D NENN.       =";E1;[199](16)[199](51)[199](50)"CUL"
20580 [152]1,[199](15)[166]8)"D AUSS.       =";E2;[199](16)[199](51)[199](50)"CUL"
20590 [152]1
20600 [152]1,[199](15)[166]8)"IC TRANSISTOR =";I1;[199](16)[199](51)[199](50)"AMP"
20610 [152]1,[199](15)[166]8)"IB TRANSISTOR =";I3;[199](16)[199](51)[199](50)"AMP"
20620 [152]1,[199](15)[166]8)"SEKUNDAERWICKLUNG";[199](16)[199](51)[199](50)"2 MAL"
20630 [152]1
20640 [152]1,[199](15)[166]8)"N             =";NB;
20650 [139]MB[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
20660 [139]MB[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
20670 [152]1,[199](15)[166]8)"D NENN.       =";E3;[199](16)[199](51)[199](50)"CUL"
20680 [152]1,[199](15)[166]8)"D AUSS.       =";E4;[199](16)[199](51)[199](50)"CUL"
20690 [152]1
20695 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
20700 [152]1:[152]1
20710 [152]1,[199](15)[166]8)"L       PRIM. =";LA;[199](16)[199](51)[199](50)LA$
20720 [152]1,[199](15)[166]8)"STEUERWICKLUNG";[199](16)[199](51)[199](50)"2 MAL"
20730 [152]1
20735 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
20740 [152]1,[199](15)[166]8)"N             =";NC;
20750 [139]MC[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
20760 [139]MC[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
20770 [152]1,[199](15)[166]8)"D NENN.       =";E5;[199](16)[199](51)[199](50)"CUL"
20775 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
20780 [152]1,[199](15)[166]8)"D AUSS.       =";E6;[199](16)[199](51)[199](50)"CUL"
20790 [152]1:[152]1
20800 [152]1,[199](15)[166]8)"IC TRANSISTOR =";I1;[199](16)[199](51)[199](50)"AMP"
20810 [152]1,[199](15)[166]8)"IB TRANSISTOR =";I3;[199](16)[199](51)[199](50)"AMP"
20820 [152]1,[199](15)[166]8)"RB            =";S5;[199](16)[199](51)[199](50)S5$
20830 [152]1,[199](15)[166]8)"R VORWIDERST. =";S6;[199](16)[199](51)[199](50)S6$
20840 [152]1,[199](15)[166]8)"U SEK. MAX    =";U5;[199](16)[199](51)[199](50)"VOLT"
20850 [152]1,[199](15)[166]8)"C LADEELKO    =";C1;[199](16)[199](51)[199](50)C1$
20860 [152]1,[199](15)[166]8)"P1 EIN LEIST. =";P1;[199](16)[199](51)[199](50)"WATT"
20870 [152]1,[199](15)[166]8)"PV VERLUST    =";PV;[199](16)[199](51)[199](50)"WATT"
20880 [152]1,[199](15)[166]8)"P NENNLEIST.  =";NL;[199](16)[199](51)[199](50)"WATT"
20890 [152]1,[199](15)[166]8)"FCU           =";FD;
20895 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
20900 [152]1:[152]1
20910 [152]1,[199](15)[166]8)"L       PRIM. =";LA;[199](16)[199](51)[199](50)LA$
20920 [152]1,[199](15)[166]8)"RCU     PRIM. =";RA;[199](16)[199](51)[199](50)RA$
20930 [152]1,[199](15)[166]8)"FCU     PRIM. =";FA;
20935 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
20940 [152]1
20950 [152]1,[199](15)[166]8)"L        SEK. =";LB;[199](16)[199](51)[199](50)LB$
20960 [152]1,[199](15)[166]8)"RCU      SEK. =";RB;[199](16)[199](51)[199](50)RB$
20970 [152]1,[199](15)[166]8)"FCU      SEK. =";FB;
20975 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
20980 [152]1
20990 [152]1,[199](15)[166]8)"L       STEU. =";LC;[199](16)[199](51)[199](50)LC$
21000 [152]1,[199](15)[166]8)"RCU     STEU. =";RC;[199](16)[199](51)[199](50)RC$
21010 [152]1,[199](15)[166]8)"FCU     STEU. =";FC;
21020 [152]1,[199](15)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
21100 O1[178]0:[152]1:[160]1:[142]
21200 [159]1,4
21210 [152]1,[199](14)[166]4)"SPULE (HF-DROSSEL)-DATEN * EINGABE"
21220 [152]1
21230 [152]1,[199](15)[166]8)"L IN HENRY      =";L1
21240 [152]1,[199](15)[166]8)"D KERN-DURCHM.  =";D1
21250 [152]1,[199](15)[166]8)"B KERN-BREITE   =";B1
21260 [152]1,[199](15)[166]8)"KZ 1-3 KAMMER   =";K1
21270 [152]1,[199](15)[166]8)"AL IN NHENRY    =";A1
21280 [152]1,[199](15)[166]8)"F IN HERZ       =";F1
21290 [152]1
21300 [152]1,[199](14)[166]4)"SPULE (HF-DROSSEL)-DATEN * AUSGABE"
21310 [152]1
21340 [152]1,[199](15)[166]8)"N             =";NA;
21350 [139]MA[178]0[167][152]1,[199](15)[199](16)[199](51)[199](50)"WINDUNGEN"
21360 [139]MA[178]1[167][152]1,[199](15)[199](16)[199](51)[199](50)"2 WIND. PARALLEL"
21370 [152]1,[199](15)[166]8)"D NENN.       =";E1;[199](16)[199](51)[199](50)"CUL"
21380 [152]1,[199](15)[166]8)"D AUSS.       =";E2;[199](16)[199](51)[199](50)"CUL"
21390 [152]1,[199](15)[166]8)"RCU           =";RA;[199](16)[199](51)[199](50)RA$
21400 [152]1,[199](15)[166]8)"XL INDUKTANZ  =";R2;[199](16)[199](51)[199](50)R2$
21410 [152]1,[199](15)[166]8)"Q SPULENGUETE =";QQ;[199](16)[199](51)[199](50)R2$
21420 [152]1,[199](15)[166]8)"FCU           =";FA;
21430 [152]1,[199](15)[166]8)[199](16)[199](51)[199](50)"KUPFERFUELLFAKTOR"
21500 O2[178]0:[152]1:[160]1:[142]
50000 [143]*VARIABLEN LESEN
50010 [134]Q(15,7):[134]Q1(31,3)
50110 [135]X1$,X2$,X3$,T1$,T2$,T3$,T4$,T5$,T6$,T7$,T8$
50200 [131]"                                   "
50210 [131]"LOAD",""
50220 [131]"BITTE WAEHLEN SIE AUS","BITTE GEWUENSCHTE NUMMER EINTIPPEN"
50240 [131]"KERNDATEN NICHT GEF.","BITTE NEUEINGABE","KERNDATEN AUFLISTEN ?"
50250 [131]"EINGABE UNVOLLSTAENDIG","AENDERUNG ERWUENSCHT VON:?"
50260 [131]"DRUCKER EINGESCHALTET ?"
51000 [143]*KERNDATEN
51100 [129]J[178]1[164]15
51200 [129]W[178]1[164]7
51205 [135]W1
51210 Q(J,W)[178]W1:[130]
51220 [130]
51400 [131]9,5,1,1.882,1.8565,18.5,10,11,7,1,1.836,2.3654,22,16,11,7,2,1.839
51420 [131] 2.5075,22,16,14,8,1,1.828,3.0292,28,25,14,8,2,1.832,3.2114,28,25
51430 [131] 18,11,1,1.839,3.8683,35.6,44
51440 [131] 18,11,2,1.861,4.1204,35.6,44,22,13,1,1.848,5.3375,44,63
51450 [131] 22,13,2,1.825,5.9283,44,63
51460 [131] 26,16,1,1.849,6.3362,52,94,26,16,2,1.834,6.9018,52,94
51470 [131] 30,19,1,1.835,7.8774,60,136
51480 [131] 30,19,2,1.831,8.5916,60,136,36,22,1,1.827,9.1729,73,201
51490 [131] 36,22,2,1.824,10.0917,73,201
52000 [143]*DRAHTTABELLE
52100 [129]J[178]1[164]31
52200 [129]W[178]1[164]3
52205 [135]W1
52210 Q1(J,W)[178]W1:[130]
52220 [130]
52400 [131] .032,.04,21.44,.04,.05,13.72,.05,.062,8.781,.063,.078,5.531
52420 [131] .071,.088,4.355,.08,.098,3.43,.09,.11,2.71,.1,.121,2.195
52440 [131] .112,.134,1.75,.125,.149,1.405,.14,.166,1.12,.16,.187,.8575
52460 [131] .18,.209,.6775,.2,.23,.5488,.224,.256,.4375,.25,.284,.3512
52480 [131] .28,.315,.28,.315,.352,.2212,.355,.395,.1742,.4,.442,.1372
52500 [131] .45,.495,.1084,.5,.548,.08781,.56,.611,.07,.63,.684,.05531
52520 [131] .71,.767,.04355,.75,.809,.03903,.8,.861,.0343,.85,.913,.03038
52540 [131] .9,.965,.0271,.95,1.017,.02432,1,1.068,.02195
55000 [142]
58000 [143]*DRUCKEN
58100 [159]1,4
58110 [152]1,"KERNTABELLE":[152]1
58120 [152]1,"D-KERN";
58130 [152]1,[199](16)[199](49)[199](48)"B-KERN";[199](16)[199](50)[199](48)"KZ";
58140 [152]1,[199](16)[199](51)[199](48)"X1";[199](16)[199](52)[199](48)"Y1";
58150 [152]1,[199](16)[199](53)[199](48)"LN";[199](16)[199](54)[199](48)"AE"
58160 [152]1
58200 [129]J[178]1[164]15
58210 [152]1,Q(J,1);[199](16)[199](49)[199](48)Q(J,2);
58220 [152]1,[199](16)[199](50)[199](48)Q(J,3);[199](16)[199](51)[199](49)Q(J,4);
58230 [152]1,[199](16)[199](52)[199](48)Q(J,5);[199](16)[199](53)[199](49)Q(J,6);
58240 [152]1,[199](16)[199](54)[199](48)Q(J,7)
58250 [130]
58300 [152]1:[152]1
58310 [152]1,"DRAHTTABELLE":[152]1
58320 [152]1,"D-NENN";
58330 [152]1,[199](16)[199](49)[199](48)"D-AUSSEN";
58340 [152]1,[199](16)[199](50)[199](48)"R OHM/M"
58400 [129]J[178]1[164]31
58410 [152]1,Q1(J,1);[199](16)[199](49)[199](48)Q1(J,2);
58420 [152]1,[199](16)[199](50)[199](48)Q1(J,3)
58450 [130]
59900 [152]1:[160]1:[142]